home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Clear WinXP Prefetch.xpl < prev    next >
Text File  |  2002-03-07  |  3KB  |  90 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="5"
  3. "COUNT"="2"
  4. "UIPATH 1"="System\File System\Windows XP Prefetching"
  5. "NAME"="Clear Prefetch Folder (XP)"
  6. "OSVERSION"="000001"
  7. "VERSION"="1.00"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Clear Prefetch Folder"
  10. "TEXT 2"="Clear Prefetch Folder (Security Wipe!)"
  11. "DESCRIPTION 1"="This plug-in will totally erase any files in your Windows XP Prefetch folder."
  12. "DESCRIPTION 2"="If you apply the second option, every file found (except any subfolders, or a file named index.dat) will be filled with garbage before deleting so even an undelete does not show what was inside the files."
  13. "DESCRIPTION 3"="Windows XP creates a %systemroot%\prefetch folder to select files it loads at system startup.  Sometimes this list becomes obsolete or littered with programs you do not wish to have prefetched.  Clearing it will reset it and start it out fresh."
  14. "DESCRIPTION 4"="Please note that the first boot after this process will be must slower than the last one, because XP generates the prefetch files again (however, without the useless entries you made had)."
  15. "DESCRIPTION 5"="The second boot-up after using the plug-in will be faster again."
  16. "AUTHOR"="Xteq Systems (CptSiskoX)"
  17. "CONTACTURL"="http://www.xteq.com"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19. "COMMENT 1"="Rundll32.exe advapi32.dll,ProcessIdleTasks"
  20. "COMMENT 2"="execute this command to start the layout.ini building"
  21.  
  22. 'sP="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OptimalLayout\LayoutFilePath"
  23. 'sP2="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\OptimalLayout\LayoutFilePath"
  24.  
  25. Sub Plugin_Initialize 
  26. End Sub
  27.  
  28. Sub Plugin_CheckData(ElementIndex)
  29. End Sub
  30.  
  31. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  32.  Select Case ElementIndex
  33.    Case 1:
  34.         Call DoWork(false)  
  35.    Case 2:
  36.         Call DoWork(true)
  37.  End Select
  38. End Sub
  39.  
  40. Sub DoWork(EraseTotally)
  41.     'get prefetch folder
  42.  
  43.     sBasePath=GetWinDir() & "prefetch"
  44.  
  45.     if folderexists(sBasePath) then
  46.        'okay, now look for any remaining files...
  47.        Call KillDir(sBasePath,EraseTotally,false)
  48.                    
  49.        'done!
  50.        msginformation "The contents of the prefetch folder are eliminated!"
  51.     else
  52.        msgerror "Unable to comply. Unable to locate folder - nothing done."
  53.     end if
  54. end Sub
  55.  
  56.  
  57. Sub KillDir(DirName,EraseTotally,KillDirAlso)
  58.  
  59.  iC=FileEnum(DirName & "\*.pf")
  60.  
  61.  for i=1 to iC 
  62.      sFile=FileEnumElement(i)
  63.    
  64.         if EraseTotally then
  65.            lC=TxtOpen(sFile)
  66.  
  67.            'replace contents of file    
  68.            for l=1 to lC 
  69.                Call TxtSetLine(l,"-")
  70.            next
  71.          
  72.  
  73.           Call TxtSave()
  74.         end if
  75.  
  76.         'now kill the file
  77.         FileDelete(sFile)
  78.  
  79.  next 
  80.  
  81.  if KillDirAlso=true then
  82.     FolderDelete(DirName)
  83.  end if
  84. End Sub
  85.  
  86.  
  87. Sub Plugin_Terminate 
  88. End Sub
  89.  
  90.